Amiga Plus 2000 #5/Amiga Plus CD - 2000 - No. 5.iso/Tools/HD/DosControl/Install_DosControl

Text File | 2000-01-01 | 7KB | 347 lines

;
; $VER: DosControl_Installer-Script (24.04.2000)
;
(transcript "Installation von DosControl V6.0")
(user 1)
(welcome)
(run("delete t:dc#? ALL QUIET FORCE"))
(set dc_text("t:DC_DIR_6.0"))
(set answare1
(askchoice
(prompt "Wo möchten Sie DosControl v6.0 installieren?")
(choices "Festplatte" "Bootfähige Diskette DF0: ")
(help "Eine Installtion auf eine Festplatte ist nur möglich,"
"wenn Sie nicht mit der DosDontrol-Diskette gebootet haben.")
(default 0)
)
)
(if(= answare1 0)
(
(set dc_dir("SYS:"))
(set dc_cdir("c:"))
(set dc_sdir("s:"))
(set dc_libs("libs:"))
(set dc_devs("devs:"))
(set instpfad
(askdir
(prompt "Wohin soll DosControl_6.0\ninstalliert werden?")
(help "DosControl wird in das Angebende Verzeichnis installiert.")
(default dc_dir)
)
)
)
(
(user 0)
(working "Installiere Standart Bootblock...")
(run("Install DF0:"))
(set instpfad("DF0:"))
(set dc_dir("DF0:"))
(set dc_cdir("DF0:c"))
(set dc_sdir("DF0:s"))
(set dc_devs("DF0:devs"))
(set dc_libs("DF0:libs"))
)
)
(complete 0)
(if(exists dc_cdir))
(makedir dc_cdir)
(if(exists dc_devs))
(makedir dc_devs)
(if(exists dc_libs))
(makedir dc_libs)
(if(exists dc_sdir))
(makedir dc_sdir)
(copyfiles
(prompt "Kopiere DosControl_6.0")
(help @copyfiles-help)
(source "DosControl")
(dest instpfad)
(infos)
(confirm)
)
(complete 10)
(if(= answare1 0)
(
(set dc_c_dir(tackon instpfad "DC_6.0"))
)
(
(set dc_c_dir(tackon dc_sdir "DC_6.0"))
(copyfiles
(prompt "Kopiere StartUp-Sequence")
(help @copyfiles-help)
(source "s/StartUp-Sequence")
(dest dc_sdir)
)
(copyfiles
(prompt "Kopiere System-Configuration")
(help @copyfiles-help)
(source "System-Configuration")
(dest dc_devs)
)
)
)
(set inst_pfad
(askdir
(prompt "Wohin sollen die von DosControl_6.0\nbenötigten Daten kopiert werden?")
(help "Keine Hilfe verfügbar.")
(newpath)
(default dc_c_dir)
)
)
(textfile
(prompt "Pfad wird Generiert.")
(help "Keine Hilfe verfügbar.")
(dest dc_text)
(append inst_pfad"\n")
)
(complete 15)
(if(askbool
(default 1)
(choices "Lokal" "Global")
(help "Wird von DosControl keine Lokale Konfig gefunden, wird die Globale verwendet.")
(prompt "Wie sollen die von DosControl_6.0 benötigten Daten gesichert werden?"))
(
(copyfiles
(prompt "Lokaler Pfad wird gesichert.")
(help "Keine Hilfe verfügbar.")
(source dc_text)
(dest instpfad)
)
)
(
(copyfiles
(prompt "Globaler Pfad wird gesichert.")
(help "Keine Hilfe verfügbar.")
(source dc_text)
(dest dc_sdir)
)
)
)
(complete 20)
(copyfiles
(prompt "Kopiere die von DosControl_6.0\nbenötigten Daten...")
(help "Keine Hilfe verfügbar.")
(source "s/DC_6.0")
(dest inst_pfad)
(pattern "#?")
(confirm)
)
(complete 25)
(if(askbool
(default 0)
(help "Keine Hilfe verfügbar.")
(prompt "Möchten Sie Anleitung mit installieren?"))
(
(copyfiles
(prompt "Kopiere die Anleitung...")
(help "Keine Hilfe verfügbar.")
(source "")
(dest instpfad)
(pattern "(Bit#?|Dok#?)")
(confirm)
)
(complete 30)
(working "Bitte etwas Geduld\nextrahiere Dateien aus Archiv...")
(run("s/Bilder.run t:"))
(complete 35)
(copyfiles
(prompt "Kopiere Bilder...")
(help "Keine Hilfe verfügbar.")
(source "t:DC")
(dest (tackon instpfad "Dokumentation"))
(pattern "#?")
(confirm)
)
(run("delete t:dc/Bilder#? ALL QUIET FORCE"))
)
)
(complete 40)
(working "Bitte etwas Geduld\nextrahiere Dateien aus Archiv...")
(run("s/Zusatz.run t:"))
(complete 45)
(if(= answare1 1)
(
(copyfiles
(prompt "Kopiere LoadWB")
(help @copyfiles-help)
(source "t:dc/c/LoadWB")
(dest dc_cdir)
)
)
)
(set answare2
(askchoice
(prompt "Welches Icon-System soll DosControl benutzen?")
(choices "Standart OS2.0" "MagicWB" "NewIcon" "GlowIcon OS3.5")
(help "Keine Hilfe verfügbar.")
(default 0)
)
)
(if(= answare2 0)
(
(copyfiles
(prompt "Kopiere Standart Icons...")
(help "Keine Hilfe verfügbar.")
(source "t:DC/WBIcon")
(dest inst_pfad)
(pattern "#?")
(confirm)
)
)
)
(if(= answare2 1)
(
(copyfiles
(prompt "Kopiere MagicWB Icons...")
(help "Keine Hilfe verfügbar.")
(source "t:DC/MagicWB")
(dest inst_pfad)
(pattern "#?")
(confirm)
)
)
)
(if(= answare2 2)
(
(copyfiles
(prompt "Kopiere NewIcon Icons...")
(help "Keine Hilfe verfügbar.")
(source "t:DC/NewIcon")
(dest inst_pfad)
(pattern "#?")
(confirm)
)
)
)
(if(= answare2 3)
(
(copyfiles
(prompt "Kopiere GlowIcon Icons...")
(help "Keine Hilfe verfügbar.")
(source "t:DC/GlowIcon")
(dest inst_pfad)
(pattern "#?")
(confirm)
)
)
)
(complete 50)
(if(askbool
(default 1)
(help "Um alle Funktionen von DosControl nutzen zu können werden einige Libraries benötigt.")
(prompt "Sollen die Libraries für DosControl installiert werden?"))
(
(copylib
(prompt "Kopiere Powerpacker.library")
(help "Keine Hilfe verfügbar.")
(source "t:DC/libs/powerpacker.library")
(dest dc_libs)
(confirm)
)
(complete 55)
(copylib
(prompt "Kopiere MedPlayer.library")
(help "Keine Hilfe verfügbar.")
(source "t:DC/libs/medplayer.library")
(dest dc_libs)
(confirm)
)
(complete 60)
(copylib
(prompt "Kopiere Reqtools.library")
(help "Keine Hilfe verfügbar.")
(source "t:DC/libs/reqtools.library")
(dest dc_libs)
(confirm)
)
)
)
(complete 65)
(if(askbool
(default 1)
(help "Um sich DMS-Files ansehen zu können, benötigen Sie einige Dateien.")
(prompt "Soll die DMS-Unterstützung installiert werden?"))
(
(copyfiles
(prompt "Kopiere c/chdir")
(help "Keine Hilfe verfügbar.")
(source "t:DC/c/chdir")
(dest dc_cdir)
(confirm)
)
(complete 70)
(if(not(exists(tackon dc_cdir "Mount")))
(
(copyfiles
(prompt "Kopiere c/Mount")
(help "Keine Hilfe verfügbar.")
(source "t:DC/c/Mount")
(dest dc_cdir)
(confirm)
)
)
)
(complete 75)
(copyfiles
(prompt "Kopiere devs/dms.device")
(help "Keine Hilfe verfügbar.")
(source "t:DC/devs")
(dest dc_devs)
(pattern "dms#?")
(confirm)
)
)
)
(complete 80)
(if(askbool
(default 0)
(help "Diese Tools können die Leistung von DosControl erhöhen.")
(prompt "Möchten Sie spezielle DosControl-Tools Installieren?"))
(
(set insta_pfad
(askdir
(prompt "Wohin sollen die speziellen Tools kopiert werden?")
(help "Keine Hilfe verfügbar.")
(newpath)
(default (tackon instpfad "Tools"))
)
)
(copyfiles
(prompt "Kopiere die speziellen DosControl-Tools...")
(help "Keine Hilfe verfügbar.")
(source "t:DC/Tools")
(dest insta_pfad)
(pattern "#?")
(confirm)
)
)
)
(complete 85)
(if(askbool
(default 0)
(help "Genauere Infomationen erhalten Sie in der DC60_Config.guide Datei.")
(prompt "Möchten Sie den Konfig-Vorschlag von Martin Kayser benutzen?"))
(
(copyfiles
(prompt "Kopiere Konfig-Vorschlag von Martin Kayser...")
(help "Keine Hilfe verfügbar.")
(source "t:DC/tools/dc60_config/dc_6")
(dest inst_pfad)
(pattern "#?")
(confirm)
)
)
)
(complete 90)
(if(askbool
(default 0)
(help "Genauere Infomationen erhalten Sie in der DCPatch.dok Datei.")
(prompt "Möchten Sie DosControl mit DCPatch von Michael Engelke patchen?"))
(
(run(cat "t:DC/tools/DCPatch "(tackon instpfad "DosControl")))
)
)
(complete 99)
(run("delete t:dc#? ALL QUIET FORCE"))
(complete 100)